﻿<%
Sa.Extends("connAction")
Class dellAction
	'''重命名二维码
	Public Sub rname()
		Sa.Use("Fso")
		Dim rsnme
		Set rsnme = Db.GR("Dell:id,店面编号,区域,城市,省份,店面名称","","ID Desc")
		On Error Resume Next
		Do While Not rsnme.Eof
			Response.Write("/data/qrcode/01/"&rsnme("店面编号")&".jpg -- /data/qrcode/01_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg<br/>")
			If Fso.IsFile("/data/qrcode/01/"&rsnme("店面编号")&".jpg") Then
				Response.Write("开始--/data/qrcode/01/"&rsnme("店面编号")&".jpg<br/>")
				If Fso.CopyFile("/data/qrcode/01/"&rsnme("店面编号")&".jpg", "/data/qrcode/01_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg") Then
					Response.Write("重命名成功<br/>")
				Else
					Response.Write("<font color='red'>重命名失败</font><br/>")
				End If
			Else
				Response.Write("<font color='red'>找不到文件/data/qrcode/01/"&rsnme("店面编号")&".jpg</font><br/>")
			End If
			If Err.Number<>0 Then
				Response.Write("<font color='red'>/data/qrcode/01/"&rsnme("店面编号")&".jpg -出错- /data/qrcode/01_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg</font><br/>")
			End If
			Response.Flush
			rsnme.MoveNext
		Loop
		rsnme.Close
	End Sub
	
	'20140702第三批二维码01
	Public Sub rname070201()
		Sa.Use("Fso")
		Sa.Use("Log")
		Log.Path = "/data/log/qr070201.log"
		Dim rsnme
		Set rsnme = Db.GR("Dell_070201:id,店面编号,区域,城市,省份,店面名称","","ID Desc")
		On Error Resume Next
		Do While Not rsnme.Eof
			Response.Write("/data/qrcode/070201/"&rsnme("店面编号")&".jpg -- /data/qrcode/070201_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg<br/>")
			If Fso.IsFile("/data/qrcode/070201/"&rsnme("店面编号")&".jpg") Then
				Response.Write("开始--/data/qrcode/070201/"&rsnme("店面编号")&".jpg<br/>")
				If Fso.CopyFile("/data/qrcode/070201/"&rsnme("店面编号")&".jpg", "/data/qrcode/070201_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg") Then
					Response.Write("重命名成功<br/>")
				Else
					Response.Write("<font color='red'>重命名失败</font><br/>")
					Log.Error("文件复制失败: /data/qrcode/070201/"&rsnme("店面编号")&".jpg -- "&"/data/qrcode/070201_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
				End If
			Else
				Response.Write("<font color='red'>找不到文件/data/qrcode/070201/"&rsnme("店面编号")&".jpg</font><br/>")
				Log.Info("找不到文件/data/qrcode/070201/"&rsnme("店面编号")&".jpg")
			End If
			If Err.Number<>0 Then
				Response.Write("<font color='red'>/data/qrcode/070201/"&rsnme("店面编号")&".jpg -出错- /data/qrcode/070201_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg</font><br/>")
				Log.Error("代码操作出错: /data/qrcode/070201/"&rsnme("店面编号")&".jpg -- /data/qrcode/070201_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
			End If
			Response.Flush
			rsnme.MoveNext
		Loop
		rsnme.Close
		Response.Write("<font color='green'>动作结束</font><br/>")
	End Sub
	
	'20140702第三批二维码02
	Public Sub rname070202()
		Sa.Use("Fso")
		Sa.Use("Log")
		Log.Path = "/data/log/qr070202.log"
		Dim rsnme
		Set rsnme = Db.GR("Dell_070202:id,店面编号,区域,城市,省份,店面名称","","ID Desc")
		On Error Resume Next
		Do While Not rsnme.Eof
			Response.Write("/data/qrcode/070202/"&rsnme("店面编号")&".jpg -- /data/qrcode/070202_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg<br/>")
			If Fso.IsFile("/data/qrcode/070202/"&rsnme("店面编号")&".jpg") Then
				Response.Write("开始--/data/qrcode/070202/"&rsnme("店面编号")&".jpg<br/>")
				If Fso.CopyFile("/data/qrcode/070202/"&rsnme("店面编号")&".jpg", "/data/qrcode/070202_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg") Then
					Response.Write("重命名成功<br/>")
				Else
					Response.Write("<font color='red'>重命名失败</font><br/>")
					Log.Error("文件复制失败: /data/qrcode/070202/"&rsnme("店面编号")&".jpg -- "&"/data/qrcode/070202_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
				End If
			Else
				Response.Write("<font color='red'>找不到文件/data/qrcode/070202/"&rsnme("店面编号")&".jpg</font><br/>")
				Log.Info("找不到文件/data/qrcode/070202/"&rsnme("店面编号")&".jpg")
			End If
			If Err.Number<>0 Then
				Response.Write("<font color='red'>/data/qrcode/070202/"&rsnme("店面编号")&".jpg -出错- /data/qrcode/070202_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg</font><br/>")
				Log.Error("代码操作出错: /data/qrcode/070202/"&rsnme("店面编号")&".jpg -- /data/qrcode/070202_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
			End If
			Response.Flush
			rsnme.MoveNext
		Loop
		rsnme.Close
		Response.Write("<font color='green'>动作结束</font><br/>")
	End Sub
	
	'20140702第三批二维码03
	Public Sub rname070203()
		Sa.Use("Fso")
		Sa.Use("Log")
		Log.Path = "/data/log/qr070203.log"
		Dim rsnme
		Set rsnme = Db.GR("Dell_070203:id,店面编号,区域,城市,省份,店面名称","","ID Desc")
		On Error Resume Next
		Do While Not rsnme.Eof
			Response.Write("/data/qrcode/070203/"&rsnme("店面编号")&".jpg -- /data/qrcode/070203_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg<br/>")
			If Fso.IsFile("/data/qrcode/070203/"&rsnme("店面编号")&".jpg") Then
				Response.Write("开始--/data/qrcode/070203/"&rsnme("店面编号")&".jpg<br/>")
				If Fso.CopyFile("/data/qrcode/070203/"&rsnme("店面编号")&".jpg", "/data/qrcode/070203_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg") Then
					Response.Write("重命名成功<br/>")
				Else
					Response.Write("<font color='red'>重命名失败</font><br/>")
					Log.Error("文件复制失败: /data/qrcode/070203/"&rsnme("店面编号")&".jpg -- "&"/data/qrcode/070203_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
				End If
			Else
				Response.Write("<font color='red'>找不到文件/data/qrcode/070203/"&rsnme("店面编号")&".jpg</font><br/>")
				Log.Info("找不到文件/data/qrcode/070203/"&rsnme("店面编号")&".jpg")
			End If
			If Err.Number<>0 Then
				Response.Write("<font color='red'>/data/qrcode/070203/"&rsnme("店面编号")&".jpg -出错- /data/qrcode/070203_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg</font><br/>")
				Log.Error("代码操作出错: /data/qrcode/070203/"&rsnme("店面编号")&".jpg -- /data/qrcode/070203_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
			End If
			Response.Flush
			rsnme.MoveNext
		Loop
		rsnme.Close
		Response.Write("<font color='green'>动作结束</font><br/>")
	End Sub
	
	'20140702第三批二维码04
	Public Sub rname070204()
		Sa.Use("Fso")
		Sa.Use("Log")
		Log.Path = "/data/log/qr070204.log"
		Dim rsnme
		Set rsnme = Db.GR("Dell_070204:id,店面编号,区域,城市,省份,店面名称","","ID Desc")
		On Error Resume Next
		Do While Not rsnme.Eof
			Response.Write("/data/qrcode/070204/"&rsnme("店面编号")&".jpg -- /data/qrcode/070204_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg<br/>")
			If Fso.IsFile("/data/qrcode/070204/"&rsnme("店面编号")&".jpg") Then
				Response.Write("开始--/data/qrcode/070204/"&rsnme("店面编号")&".jpg<br/>")
				If Fso.CopyFile("/data/qrcode/070204/"&rsnme("店面编号")&".jpg", "/data/qrcode/070204_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg") Then
					Response.Write("重命名成功<br/>")
				Else
					Response.Write("<font color='red'>重命名失败</font><br/>")
					Log.Error("文件复制失败: /data/qrcode/070204/"&rsnme("店面编号")&".jpg -- "&"/data/qrcode/070204_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
				End If
			Else
				Response.Write("<font color='red'>找不到文件/data/qrcode/070204/"&rsnme("店面编号")&".jpg</font><br/>")
				Log.Info("找不到文件/data/qrcode/070204/"&rsnme("店面编号")&".jpg")
			End If
			If Err.Number<>0 Then
				Response.Write("<font color='red'>/data/qrcode/070204/"&rsnme("店面编号")&".jpg -出错- /data/qrcode/070204_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg</font><br/>")
				Log.Error("代码操作出错: /data/qrcode/070204/"&rsnme("店面编号")&".jpg -- /data/qrcode/070204_OK/"&rsnme("店面编号")&rsnme("区域")&rsnme("省份")&rsnme("城市")&rsnme("店面名称")&".jpg")
			End If
			Response.Flush
			rsnme.MoveNext
		Loop
		rsnme.Close
		Response.Write("<font color='green'>动作结束</font><br/>")
	End Sub
	
	Public Sub allqr()
		Response.ContentType ="application/vnd.ms-excel"
		Response.AddHeader "Content-Disposition", "attachment;filename=QRCODE.xls"
		Sa.Use("Fso")
		dim k : k = 0
		response.write("<table>")
		response.write("<tr>")
		'1
		response.write("<td>")
		response.write("序号")
		response.write("</td>")
		'2
		response.write("<td>")
		response.write("店面编号")
		response.write("</td>")
		response.write("</tr>")
		
		Dim t_cf1 : t_cf1 = Fso.List("/data/qrcode/070201/", 1)
		For i = 0 To UBound(t_cf1,2)
			k = k + 1
			response.write("<tr>")
			'1
			response.write("<td>")
			response.write(k)
			response.write("</td>")	
			'2
			response.write("<td>")
			response.write(Replace(t_cf1(0,i),".jpg",""))
			response.write("</td>")
	
			response.write("</tr>")
		Next
		
		Dim t_cf2 : t_cf2 = Fso.List("/data/qrcode/070202/", 1)
		For i = 0 To UBound(t_cf2,2)
			k = k + 1
			response.write("<tr>")
			'1
			response.write("<td>")
			response.write(k)
			response.write("</td>")	
			'2
			response.write("<td>")
			response.write(Replace(t_cf2(0,i),".jpg",""))
			response.write("</td>")
	
			response.write("</tr>")
		Next
		
		Dim t_cf3 : t_cf3 = Fso.List("/data/qrcode/070203/", 1)
		For i = 0 To UBound(t_cf3,2)
			k = k + 1
			response.write("<tr>")
			'1
			response.write("<td>")
			response.write(k)
			response.write("</td>")	
			'2
			response.write("<td>")
			response.write(Replace(t_cf3(0,i),".jpg",""))
			response.write("</td>")
	
			response.write("</tr>")
		Next
		
		Dim t_cf4 : t_cf4 = Fso.List("/data/qrcode/070204/", 1)
		For i = 0 To UBound(t_cf4,2)
			k = k + 1
			response.write("<tr>")
			'1
			response.write("<td>")
			response.write(k)
			response.write("</td>")	
			'2
			response.write("<td>")
			response.write(Replace(t_cf4(0,i),".jpg",""))
			response.write("</td>")
	
			response.write("</tr>")
		Next
		
		response.write("</table>")
	End Sub
End Class
			
%>